home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / ScanMultiple.ifx < prev    next >
Text File  |  1996-03-02  |  681b  |  42 lines
  1. /*
  2.  * $VER: ScanMultiple 2.0.0 (8.6.93)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Updated for ImageFX 2.0.
  8.  *
  9.  * Scan multiple monochrome pages from an Epson ES800C with a
  10.  * document feeder attachment.  Files as saved as individual
  11.  * 2-color ILBM's in RAM:.
  12.  *
  13.  */
  14.  
  15. OPTIONS RESULTS
  16.  
  17.  
  18. SetRender Foreign
  19. IF rc ~= 0 THEN EXIT
  20.  
  21. Render Mode Hires Lace
  22. Render Colors 2
  23.  
  24. pagenum = 1
  25.  
  26. DO FOREVER
  27.  
  28.    Message 'Scanning Page' pagenum
  29.  
  30.    /* requires 2.0 */
  31.    Scanner DetailScan Mono Dpi 100 ADF
  32.    IF rc ~= 0 THEN LEAVE
  33.  
  34.    Render Go
  35.    SaveRenderedAs ILBM 'ram:page'||RIGHT('000'||pagenum,4)
  36.  
  37.    pagenum = pagenum + 1
  38.  
  39.    END
  40.  
  41. EXIT
  42.